home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO018.dsk
/
JOTTO.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
4KB
|
68 lines
100 REM JOTTO (DUP LETTERS OK)
110 REM
120 REM KEITH AND NEIL FALKNER
130 REM
140 DIM HIT(5)
150 PRINT CHR$(21): TEXT : HOME
160 VTAB 1: PRINT TAB( 16)"J O T T O"
170 VTAB 3: PRINT "PLEASE TYPE YOUR NAME:"
180 INPUT "";WHO$: VTAB 3: CALL -868
190 VTAB 5: IF LEN(WHO$) THEN PRINT "IS TRYING TO ..."
200 PRINT "GUESS A 5-LETTER WORD."
210 VTAB 10: INPUT "SHALL I PRINT THE RULES? ";GUESS$
220 VTAB 10: CALL -868: IF LEN(GUESS$) = 0 THEN 310
230 IF LEFT$(GUESS$,1) < >"Y" THEN 310
240 PRINT "I WILL CHOOSE A 5-LETTER WORD"
250 PRINT "YOU MAKE A GUESS, BY TYPING A"
260 PRINT "FIVE-LETTER WORD. I TELL YOU"
270 PRINT "HOW MANY OF YOUR LETTERS ALSO"
280 PRINT "APPEAR IN MY WORD. WE REPEAT"
290 PRINT "THIS UNTIL YOU TYPE MY CHOSEN"
300 PRINT "WORD, ... OR ONE OF US QUITS."
310 REM I CHOOSE A WORD
320 GOSUB 600:TRIES = 0
330 REM USER MAKES A GUESS
340 IF TRIES >18 THEN 580
350 VTAB 20: CALL -868: REM CLEAR LINE
360 INPUT "YOUR GUESS: ";GUESS$
370 IF LEN(GUESS$) < >5 THEN 350
380 FOR I = 1 TO 5:L$ = MID$ (GUESS$,I,1): IF L$ <"A" OR L$ >"Z" GOTO 350
390 NEXT
400 COPY$ = CHOICE$:V = 0
410 REM MATCH GUESS AND CHOICE
420 FOR J = 1 TO 5:HIT(J) = 0: NEXT J
430 FOR I = 1 TO 5: REM STEP ACROSS GUESS
440 FOR J = 1 TO 5: REM STEP ACROSS CHOICE
450 IF MID$ (COPY$,J,1) < > MID$ (GUESS$,I,1) GOTO 470
460 IF HIT(J) = 0 THEN HIT(J) = 1:V = V +1: GOTO 480
470 NEXT J
480 NEXT I:TRIES = TRIES +1
490 VTAB TRIES: HTAB 33: PRINT GUESS$;"--";V
500 IF V <5 THEN 330
510 IF GUESS$ = CHOICE$ THEN 530
520 VTAB 18: PRINT "(REARRANGE: ";GUESS$;")": GOTO 330
530 VTAB 20: PRINT "CORRECT! YOU FOUND '";CHOICE$;"' IN ";TRIES;" TRIES."
540 INPUT "DO YOU WANT TO PLAY AGAIN? ";GUESS$
550 GUESS$ = LEFT$(GUESS$,1): IF GUESS$ < >"Y" AND GUESS$ > <"y" GOTO 590
560 FOR I = 1 TO TRIES: VTAB I: HTAB 33: CALL -868: NEXT I
570 VTAB 18: HTAB 1: CALL -958: GOTO 310
580 VTAB 20: PRINT "YOU ARE NOT TRYING. I QUIT!"
590 PRINT CHR$(4)"-STARTUP"
600 V1$ = "CFSCPECGGKEKLTVPWXTTFCGHWEQSTSGLJFTMJSBPETMBBTJSTRBBVBCFCCSESHSEASCFNTSRPVDPUVOU"
610 V1$ = V1$ +"FPFDBFQFTGPSFEPKTBEEARSETULBABFMFDUGGPPDFSTGSGBTWADJRDFDMFDMFAHWSWSBDVFVFCCSGIOO"
620 V1$ = V1$ +"TARQRIIJKGSEPCOIQZJFGBBPABWMLSPSEHSJHHCJYEAOKDSBMAWCSHSGVHGACMEBSHCHROFJFWVWQBRA"
630 V2$ = "OLTHIQONRNXHLRAOAEHOLERIIAUARTUAUROUIPUUNAEERUOHWEUUOORIRAURTOINPPOLARHEOIIRSOUR"
640 V2$ = V2$ +"IHORRRULARATRNHNAARALOPIHPOANEEALENOUAURIIHNAUORHUROIRLAOIEAIRUATOTLRAUOULIQLGGU"
650 V2$ = V2$ +"YNOUAARIUIWJOUDDAOAILLOAGIRUUMLCQOAOAOAEOXZOAATUABALHACRIARBEAXOIARUICAILREAUAAM"
660 V3$ = "UIAELUNOEOIAAULLLNIUUDAREREDOREBLEXMFIGSDSRAALIUIFIGWSUGAWGUOTSAPOAABYISWDSIUGGB"
670 V3$ = V3$ +"RORAUUAALONIAJOOPSRGIULGRPWSGLLNITILLLROFXIAIIMUOGIUFIIIPLINXRMIRROIAGDDNIGUYLLT"
680 V3$ = V3$ +"PIYELMOHLVAEPROINNZBAARNINASAEAAURULPBLWUEUZZDRNXBIAORRAPVAALGUXLBYRGHSFUENXANDA"
690 V4$ = "CNRWOAIMELSKMLVKTOGGFEPELLULOESIEEIMFNLHOKRUVINSLELGEOEHFEAPNESCLOTSOSFEEEKNAUHA"
700 V4$ = V4$ +"SNGMTIKILASNUONBEIOLGGIHEEEIROOGNETEFSSOTTRWNLBMRELSLFRSEEFOEAASASRMWUGKNFAAPOEE"
710 V4$ = V4$ +"ESAELBNAAEMCPIUOAEZRSSOINGTIULCLINCLPBYETRREODUNIEVSCEEIEEFCLILEKIPRHRTFNCOELJAZ"
720 V5$ = "HTTYTLCEDLTIAYEAZNHHFDHDDYEYPWSAPDCYYEEYWSYXEPTHLRTYLMLTTDRTELYTEKIHBTTTROSTLETN"
730 V5$ = V5$ +"TYEAETELYNYGDYESSCRENHTTERRSYWNYTREMSYEPYYDSTTSPLRLTETTYDSYRDYNTWTKPNEEAYFRWHODR"
740 V5$ = V5$ +"DELNYSYDKNITYORMTDYESTNCGOHCSLEPPYEYYYXLHTEDOYTYMYEHKMWLRNTIOCTDYTTYTESYKKMDMORE"
750 I = 1 + INT( RND(1) * LEN(V1$))
760 CHOICE$ = MID$ (V1$,I,1) + MID$ (V2$,I,1) + MID$ (V3$,I,1) + MID$ (V4$,I,1) + MID$ (V5$,I,1)
770 RETURN